home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aae.d64 / 1000primes.basic (.txt) < prev    next >
Commodore BASIC  |  2007-02-28  |  258b  |  18 lines
  1. 10 S=TIME
  2. 20 SZ%=3962 : C%=0
  3. 30 DIM FL%(SZ%)
  4. 40 FOR I=0 TO SZ%
  5. 50 IF FL%(I)<>0  THEN 210
  6. 60 PR%=I +I +3
  7. 65 PRINT PR%;
  8. 70 K%=I +PR%
  9. 80 IF K%>SZ% THEN 120
  10. 90 FL%(K%)=1
  11. 100 K%=K%+PR%
  12. 110 GOTO 80
  13. 120 C%=C%+1
  14. 210 NEXT I
  15. 300 E=TIME
  16. 310 PRINT "COUNT=";C%
  17. 320 PRINT "TIME=";(E-S)/60
  18.